home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yammailcheck / lastcheck < prev    next >
Text File  |  1997-03-22  |  840b  |  37 lines
  1.  
  2. ; $VER: LastCheck 1.0 (18.03.97)
  3. ;                    
  4. ; MailCheck extension script
  5. ;                         
  6. ; ©1997 Robert Wilson                
  7.  
  8. LAB Start
  9.  
  10. If $MCLastRun EQ "1"
  11. Skip End
  12. EndIf
  13.  
  14. SetEnv MCLastRun 1
  15.  
  16. If $MCMail EQ "0"
  17.   RequestChoice >ENV:Answer "LastCheck V1.0" "MailCheck statistics.*n*nLast checked on $MCDate.*nNo new mail was received.*n*nDo you want to check it now?" "Yes" "No"
  18. EndIf
  19.  
  20. If $MCMail EQ "1"
  21.   RequestChoice >ENV:Answer "LastCheck V1.0" "MailCheck statistics.*n*nLast checked on $MCDate.*n1 new mail was received.*n*nDo you want to check it now?" "Yes" "No"
  22. EndIf
  23.  
  24. If $MCMail GE "2"
  25.   RequestChoice >ENV:Answer "LastCheck V1.0" "MailCheck statistics.*n*nLast checked on $MCDate.*n$MCMail new mails were received.*n*nDo you want to check it now?" "Yes" "No"
  26. EndIf
  27.  
  28.  
  29. If $Answer EQ "1"
  30.   run <>nil: s:MailCheck
  31. EndIf
  32.  
  33. SetEnv MCLastRun 0
  34.  
  35. LAB End
  36.  
  37. Quit